Imports System.Console
	Public Class nesting
		Shared Sub Main()
			
			Dim Colour1 As Integer = 0
			Dim Colour2 As Integer = 0
			
			WriteLine("")
			WriteLine("# # # # # # # # # # # # # # # # # # # # # # # # # # #")
			WriteLine("# Please choose a colour (enter the numeric ID);    #")
			WriteLine("# (1) - Red                                         #")
			WriteLine("# (2) - Blue                                        #")
			WriteLine("# (3) - Black                                       #")
			WriteLine("# # # # # # # # # # # # # # # # # # # # # # # # # # #")
			Colour1 = ReadLine()
			
			WriteLine("")
			WriteLine("# # # # # # # # # # # # # # # # # # # # # # # # # # #")
			WriteLine("# Please choose a second colour;                    #")
			WriteLine("# (1) - Red                                         #")
			WriteLine("# (2) - Blue                                        #")
			WriteLine("# (3) - Black                                       #")
			WriteLine("# # # # # # # # # # # # # # # # # # # # # # # # # # #")
			Colour2 = ReadLine()
			
			If Colour1 = 1 And Colour2 = 1 Then
				BackgroundColor = ConsoleColor.Red
				WriteLine("*******************************")
				WriteLine("* Red + Red = Red             *")
				WriteLine("* You have created Red        *")
				WriteLine("*******************************")
			ElseIf Colour1 = 1 And Colour2 = 2 Then
				BackgroundColor = ConsoleColor.Magenta 
				WriteLine("*******************************")
				WriteLine("* Red + Blue = Magenta        *")
				WriteLine("* You have created Magenta    *")
				WriteLine("*******************************")			
			ElseIf Colour1 = 1 And Colour2 = 3 Then
				BackgroundColor = ConsoleColor.DarkRed
				WriteLine("*******************************")
				WriteLine("* Red + Black = Dark Red      *")
				WriteLine("* You have created Dark Red   *")
				WriteLine("*******************************")
			ElseIf Colour1 = 2 And Colour2 = 1 Then
				BackgroundColor = ConsoleColor.Magenta
				WriteLine("*******************************")
				WriteLine("* Blue + Red = Magenta        *")
				WriteLine("* You have created Magenta    *")
				WriteLine("*******************************")
			ElseIf Colour1 = 2 And Colour2 = 2 Then
				BackgroundColor = ConsoleColor.Blue
				WriteLine("*******************************")
				WriteLine("* Blue + Blue = Blue          *")
				WriteLine("* You have created Blue       *")
				WriteLine("*******************************")
			ElseIf Colour1 = 2 And Colour2 = 3 Then
				BackgroundColor = ConsoleColor.DarkBlue
				WriteLine("*******************************")
				WriteLine("* Blue + Black = Dark Blue    *")
				WriteLine("* You have created Dark Blue  *")
				WriteLine("*******************************")
			ElseIf Colour1 = 3 And Colour2 = 1 Then
				BackgroundColor = ConsoleColor.DarkRed
				WriteLine("*******************************")
				WriteLine("* Black + Red = Dark Red      *")
				WriteLine("* You have created Dark Red   *")
				WriteLine("*******************************")
			ElseIf Colour1 = 3 And Colour2 = 2 Then
				BackgroundColor = ConsoleColor.DarkBlue
				WriteLine("*******************************")
				WriteLine("* Black + Blue = Dark Blue    *")
				WriteLine("* You have created Dark Blue  *")
				WriteLine("*******************************")
			ElseIf Colour1 = 3 And Colour2 = 3 Then
				BackgroundColor = ConsoleColor.Black
				WriteLine("*******************************")
				WriteLine("* Black + Black = Black       *")
				WriteLine("* You have created Black      *")
				WriteLine("*******************************")
			End If
			BackgroundColor = ConsoleColor.Black 
			WriteLine("")
			WriteLine("# # # # # # # # # # # # # # # # # # #")
			WriteLine("Would you like to mix more colours?")
			WriteLine("(1) - Yes")
			WriteLine("(2) - No")
			WriteLine("# # # # # # # # # # # # # # # # # # #")
			
			Dim Choice As Integer = ReadLine()
			
			If Choice = 1 Then
				Main()
			Else 
				WriteLine("* * * * * GOODBYE * * * * *")
			End If
			ReadLine()
		End Sub
	End Class